home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg1
/
g24.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
411b
|
15 lines
100 ' G24 T.WAKAMATSU
110 PI=3.14159!
120 A=130:B=65:V=9:W=4:Z=6:CLS:C=W
130 FOR T=0 TO 2*PI STEP PI/96
140 C=V-C
150 CIRCLE(145*COS(B*T)+320,145*SIN(A*T)+240),90,C
160 NEXT T
170 FOR D=1 TO 2000:NEXT D
180 FOR T=0 TO 2*PI STEP PI/96
190 CIRCLE(145*COS(B*T)+320,145*SIN(A*T)+240),90,Z
200 NEXT T
210 FOR T=0 TO 2*PI STEP PI/96
220 CIRCLE(145*COS(B*T)+320,145*SIN(A*T)+240),90,0
230 NEXT T